00100	
00200	
00300	(DEFPROP <RPELEM> 
00400	 (LAMBDA NIL
00500	  (NLRR (QUOTE RPELEM)
00600		(FUNCTION
00700		 (LAMBDA NIL
00800		  (COND ((AND (CH <) (<ID>) (CH >)) (STK 1))
00900			((AND (QCH ↓)) (CONS (QUOTE FORMAT) (CONS (QUOTE %DOWN) NIL)))
01000			((AND (QCH →) (<NUMBER>))
01100			 (CONS (QUOTE FORMAT) (CONS (CONS (QUOTE %IN) (CONS (STK 0) NIL)) NIL)))
01200			((AND (QCH →)) (CONS (QUOTE FORMAT) (CONS (CONS (QUOTE %IN) (CONS (QUOTE 0) NIL)) NIL)))
01300			((AND (<ID>)) (CONS (QUOTE SPWD) (CONS (STK 0) NIL)))
01400			((AND (QCH ') (<CHAR>)) (CONS (QUOTE QCH) (CONS (STK 0) NIL)))
01500			((AND (<CHAR>)) (CONS (QUOTE CH) (CONS (STK 0) NIL)))
01600			(*NIL*)))))) 
01700	EXPR)